www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\admin\SiteProblem\siteProblem_Manage.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
projectRootPath = "../../" '相对当前应用程序根的位置
%>
<!-- #include file ="../include/checkPurview.asp"-->
<!--#include file="../../ConnDB.asp"-->
<!--#include file="../../include/Deep.Class.Page.asp"-->
<!-- #include file="../include/Function.Manage.Config.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="robots" content="noindex,nofollow" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>问题网站管理</title>
<link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" />
</head>
<body id="bodyBg1">
<br />
<a href="siteProblem_Manage.asp">问题网站管理</a>
<hr color="#0099FF" size="1" />
<br />
<dl class="manageContent">
<dt></dt>
<dd>
<br />
<%
'--- 1 分页初始化 -----
Dim oPageMsSQL
Set oPageMsSQL=new Deep_Page
oPageMsSQL.pageSize=50 '定义每页显示记录数 默认10条
oPageMsSQL.getConnection(conn)
'当前页
if (Request.QueryString("page") <>"") then
oPageMsSQL.currentPage=CInt(Request.QueryString("page"))
End if
'sql="select * from tArticle"
'PageSQL( tableName, dataKeyField, wordField, whereCondition, orderByField)
WebDir_Sql=oPageMsSQL.PageSQL( "deep_SiteProblem", "fid", "*","" ,"ftime desc,fid")
'-----1 end------
Set RsWebDir=Server.CreateObject("Adodb.Recordset")
'WebDir_Sql="Select * from deep_SiteProblem order by ftime desc"
RsWebDir.open WebDir_Sql,conn,1,1
if RsWebDir.Eof and RsWebDir.Bof then
Response.Write("<p>暂时没有消息！！！</p>")
else
'分页初始化
'page=request.QueryString("page") 'page值为接受值
'RsWebDir.PageSize = 50 '每页显示记录数
'PageSize=RsWebDir.PageSize
'if Not IsEmpty(page) then '如果page已经初始化...
' if Not IsNumeric(page) then '判断page值是否为数字
' page=1
' else
' Page = cint(page) '接收page并化为数字型赋给page变量
' end if
' if Page > RsWebDir.PageCount then '如果接收的页数大于总页数
' RsWebDir.AbsolutePage = RsWebDir.PageCount '设置当前显示页等于最后页
' elseif Page <= 0 then '如果page小于等于0
' RsWebDir.AbsolutePage = 1 '设置当前显示页等于第一页
' else
' RsWebDir.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
' end if
'else
'RsWebDir.AbsolutePage=1
'end if
'Page = RsWebDir.AbsolutePage
%>
<div align="left"> 问题网站总数： <%=RsWebDir.RecordCount%> 个</div>
<div align="center">
<form id="form1" name="form1" method="get" action="../Site/url_Manage.asp">
站内搜索:
<input name="searchText" type="text" id="searchText" />
<input name="SearchInside" type="submit" id="Search" value="搜 索" />
</form>
<table width="90%" class="tableBoder01">
<tr>
<th>序号</th>
<th>问题网站名称</th>
<th>网址类别</th>
<th>报告时间</th>
<th>审阅</th>
<th>管 理</th>
</tr>
<%
xuhao=1
'while (PageSize<>0)and(Not RsWebDir.Eof)
while (Not RsWebDir.Eof)
%>
<tr>
<td><%=xuhao%></td>
<td align="left"><a href="<%=RsWebDir("furl")%>" target="_blank" title="网站问题说明:<%=RsWebDir("fcontent")%>"><%=RsWebDir("ftitle")%></a>
</td>
<td><%
set rsClassName=conn.execute("select fname from deep_WebSort where fid_Sort=" & RsWebDir("fclassName"))
if (rsClassName.eof and rsClassName.bof)then
response.Write("没有发现对应分类")
else
response.Write rsClassName("fname")
end if
%></td>
<td><%=RsWebDir("ftime")%></td>
<td><%if RsWebDir("fpassed")=0 then%><font color="#FF0000">(未审阅)</font><%end if%></td>
<td><a href="siteProblem_DEL.asp?id=<%=RsWebDir("fid")%>" onclick="return confirm('删除后将不能恢复，你确定删除么？')">删除</a></td>
</tr>
<%
xuhao=xuhao+1
RsWebDir.MoveNext
PageSize=PageSize-1
wend
%>
</table>
</div>
<%
end if
RsWebDir.close
Set RsWebDir =Nothing
'call pagination(RsWebDir.PageCount,RsWebDir.pagesize,page,RsWebDir.RecordCount)
'--- 2 分页导航 显示 -----
response.Write( oPageMsSQL.PageNavigateUrl() )
Set oPageMsSQL=Nothing
'-----2 end------
Call CloseConnDB()
%>
<br />
</dd>
</dl>
<br />
</body>
</html>